home *** CD-ROM | disk | FTP | other *** search
/ Games of Daze / Infomagic - Games of Daze (Summer 1995) (Disc 1 of 2).iso / x2ftp / msdos / demosrc / timesrc / l1p5.m < prev    next >
Encoding:
Text File  |  1994-02-22  |  1.9 KB  |  61 lines
  1.  
  2. ;▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒
  3. ; DATA
  4. ;▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒
  5. align 4
  6. d5cspr          dd      cspr0e
  7. d5csprtbl       dd      cspr0e,cspr0f,cspr12,cspr13,cspr14,cspr15
  8.  
  9. d5csprloc       dw      372
  10. d5csprindex     db      0
  11.  
  12. d5heighttbl     db 37,36,36,35,34,33,33,32,31,30,30,29,28,28,27,26
  13.                 db 26,25,24,24,23,23,22,21,21,20,20,19,18,18,17,17
  14.                 db 16,16,15,15,14,14,13,13,12,12,11,11,10,10,10,9
  15.                 db 9,8,8,8,7,7,6,6,6,5,5,5,5,4,4,4
  16.                 db 3,3,3,3,2,2,2,2,2,1,1,1,1,1,1,0
  17.                 db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  18.                 db 0,0,0,0,0,0,0,0,0,0,0,0,1,1,1,1
  19.                 db 1,1,2,2,2,2,2,3,3,3,3,4,4,4,5,5
  20.                 db 5,5,6,6,6,7,7,8,8,8,9,9,10,10,10,11
  21.                 db 11,12,12,13,13,14,14,15,15,16,16,17,17,18,18,19
  22.                 db 20,20,21,21,22,23,23,24,24,25,26,26,27,28,28,29
  23.                 db 30,30,31,32,33,33,34,35,36,36,37
  24.  
  25. ;▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒
  26. ; CODE
  27. ;▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒
  28.  
  29. ;═════════════════════════════════════════════════════════════════════════════
  30. p50:
  31.         movzx ebx,d5csprloc
  32.         sub ebx,2
  33.         jnz short p50f0
  34.         movzx edx,d5csprindex
  35.         inc dl
  36.         cmp dl,6
  37.         jb short p50f1
  38.         xor dl,dl
  39. p50f1:
  40.         mov d5csprindex,dl
  41.         mov eax,d5csprtbl[edx*4]
  42.         mov d5cspr,eax
  43.         mov ebx,372
  44.         push offset setnext
  45. p50f0:
  46.         mov d5csprloc,bx
  47.         mov eax,ebx
  48.         shr eax,1
  49.         movzx edi,d5heighttbl[eax]
  50.         imul edi,100
  51.         mov eax,ebx
  52.         and eax,3
  53.         mov al,vidbittbl2[eax]
  54.         shr ebx,2
  55.         lea edi,[edi+ebx+15*100-13]
  56.         add edi,_vidptr
  57.         mov dx,3c5h
  58.         call d5cspr
  59.         ret
  60.  
  61.